Script: --on windowEvent wdID,wdName,objNo,objName,objValue¬Global gComicShowIdle¬Global gComicShowSpeed¬Global gComicShowIdleChoices, gComicShowSpeedChoices¬Global gTempComicShowIdle¬Global gTempComicShowSpeed¬¬if objValue = "Open" then¬ put gComicShowIdle into gTempComicShowIdle¬ put gComicShowSpeed into gTempComicShowSpeed¬ ¬ get "DemoTimeDigit_Value:" & gComicShowIdle & return & "DemoSpeedDigit_Value:" & gComicShowSpeed & return & "DemoIdleDelay_Text:" & (item 1 of line gComicShowIdle of gComicShowIdleChoices) & return & "DemoSpeed_Text:" & item 1 of (line gComicShowSpeed of gComicShowSpeedChoices) & return¬ wsSet wdID,"0","Properties", it¬end if¬--end windowEvent
Params: i10_Hilite¬i12_Hilite
Result: i10_Hilite¬i12_Hilite
ItemType: PUSH
Rect: 237,174,317,194
AutoSize: FALSE
Name: Begin
DefaultItem: TRUE
AutoClose: TRUE
Balloon: Click here to begin using ComicBase in demo mode.
Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬¬Global gComicShowIdle, gTempComicShowIdle¬Global gComicShowSpeed, gTempComicShowSpeed¬Global gUsersHaveKeyboard, gRestrictMatureTitles¬¬put gTempComicShowIdle into gComicShowIdle¬put gTempComicShowSpeed into gComicShowSpeed¬put wsGet(wdID,"9","Hilite") into gUsersHaveKeyboard¬put wsGet(wdID,"12","Hilite") into gRestrictMatureTitles¬--end mouseUp
ItemType: PUSH
Rect: 144,174,224,194
Name: Cancel
CancelItem: TRUE
AutoClose: TRUE
Balloon: Click here to cancel any changes you’ve made.
ItemType: BOX
Rect: 10,11,320,90
TextFont: Geneva
TextSize: 9
TextStyle: Bold
BlackColor: -26215,-26215,-26215
WhiteColor: -8739,-8739,-8739
Name: Automatic Demo
Fill: White
ItemType: CNTL
Rect: 291,32,302,51
Name: DemoTimeDigit
Style: 352
Min: 1
Max: 18
Value: 5
Step: 1
Leap: 1
Balloon: Click here to increase or decrease the time before the demo starts automatically.
Script: --on mouseDown wdID,wdName,objNo,objName,objValue¬Global gTempComicShowIdle, gComicShowIdleChoices¬¬put objValue into gTempComicShowIdle¬wsSet wdID,"DemoIdleDelay","Text",item 1 of line gTempComicShowIdle of gComicShowIdleChoices ¬--end mouseDown
ItemType: TEXT
Rect: 30,35,190,47
TextFont: Geneva
TextSize: 9
Name: DemoTitle
WhiteColor: -8739,-8739,-8739
TextStyle: Bold
Text: Starts if idle for more than:
ItemType: TEXT
Rect: 194,35,289,47
TextFont: Geneva
TextSize: 9
AutoSize: FALSE
Name: DemoIdleDelay
WhiteColor: -8739,-8739,-8739
TextAlign: Right
Text: 50 seconds
Balloon: If nobody moves the mouse for longer than the value entered here, the program will go into demo mode.
ItemType: TEXT
Rect: 119,61,190,73
TextFont: Geneva
TextSize: 9
Name: DemoSpeedPrompt
WhiteColor: -8739,-8739,-8739
TextStyle: Bold
Text: Demo speed:
ItemType: TEXT
Rect: 205,61,289,76
TextFont: Geneva
TextSize: 9
AutoSize: FALSE
Name: DemoSpeed
WhiteColor: -8739,-8739,-8739
TextAlign: Right
Text: medium
Balloon: This is a relative measure of how fast the demo moves along.
ItemType: CNTL
Rect: 291,59,302,78
Name: DemoSpeedDigit
Style: 352
Min: 1
Max: 5
Value: 3
Step: 1
Leap: 1
Balloon: Click here to increase or decrease the speed of the demo.
Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬Global gTempComicShowSpeed, gComicShowSpeedChoices¬¬put objValue into gTempComicShowSpeed¬wsSet wdID,"DemoSpeed","Text",item 1 of line gTempComicShowSpeed of gComicShowSpeedChoices ¬--end mouseUp
ItemType: CHK
Rect: 23,107,225,123
WhiteColor: -8739,-8739,-8739
Name: Users will have a keyboard
Hilite: TRUE
Balloon: Certain options requiring typing (such “Other” in the “Find Comics” command) will be dimmed if users don’t have a keyboard to type with. This allows you to set up ComicBase as a self-running kiosk with or without a keyboard.
ItemType: PUSH
Rect: 10,174,112,194
Name: Password…
Balloon: Click here to set a password which will be required to before exiting the demo. This way, you can safely set up a self-running demo for use at comic shows which can not be exited without knowing the password.
